home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / GUSI / MakeAliases < prev    next >
Encoding:
Text File  |  1992-12-13  |  1.1 KB  |  50 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}; Exit
  2.  
  3. #!/usr/local/bin/perl
  4. #######################################################################
  5. #    Project    :    GUSI            -    Grand Unified Socket Interface
  6. #    Author    :    Matthias Neeracher
  7. #    Started    :    08Sep92                                Language    :    Perl
  8. #    Modified    :    21Nov92    MN    Consider externals
  9. #    Last        :    21Nov92
  10. #######################################################################
  11.  
  12. open(ALIAS, "Aliases")         || die "Can't open file \"Aliases\"";
  13. open(EXT,    "GUSI.ext")        || die "Can't open file \"GUSI.ext\"";
  14. open(DF,     ">Alias.df")    || die "Can't open file \"Alias.df\"";
  15. open(DF1,     ">Alias1.df")    || die "Can't open file \"Alias1.df\"";
  16. open(RN,        ">Alias.rn")    || die "Can't open file \"Alias.rn\"";
  17.  
  18. while (<ALIAS>)    {
  19.     if (/(\S+)\s+(\S+)/) {
  20.         $Alias{$1} = $2;
  21.     
  22.         print RN  "   -rn $1=$2\n" unless ($1 eq $2);
  23.     }
  24. }
  25.  
  26. close ALIAS;
  27.  
  28. while (<EXT>)    {
  29.     if (/(\S+)/) {
  30.         $Ext{$1} = 1;
  31.     }
  32. }
  33.  
  34. close EXT;
  35.  
  36. while (<>)    {
  37.     if (/^(\S+).*\$/ || /EP=(\S+)/) {
  38.         unless ($Alias{$1}) {
  39.             if ($Ext{$1}) {
  40.                 print DF1 "$1\n";
  41.             } else {
  42.                 print DF "$1\n";
  43.             }
  44.         }
  45.     }
  46. }
  47.  
  48. close DF;
  49. close RN;
  50.